home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
PGM_TOOL
/
PREVIEW
/
CLP2DLFI
/
NUDELPHI.DFM
/
NUDELPHI.txt
Wrap
Text File
|
1995-10-29
|
5KB
|
228 lines
object db2dl: Tdb2dl
Left = 58
Top = 112
Width = 517
Height = 364
Caption = 'Translate Files'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIChild
Menu = MainMenu1
PixelsPerInch = 96
Position = poDefault
Visible = True
OnClose = FormClose
OnCreate = FormCreate
TextHeight = 16
object cdir: TLabel
Left = 46
Top = 8
Width = 261
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'cdir'
Font.Color = clGreen
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 12
Top = 32
Width = 141
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'xBase Files'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 204
Top = 32
Width = 78
Height = 16
Caption = 'Delphi Files'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 380
Top = 48
Width = 73
Height = 16
Alignment = taCenter
Caption = 'Translating'
end
object fromprg: TLabel
Left = 344
Top = 72
Width = 149
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'fromprg'
Font.Color = clGreen
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 408
Top = 92
Width = 16
Height = 16
Alignment = taCenter
Caption = 'To'
end
object topas: TLabel
Left = 344
Top = 116
Width = 149
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'topas'
Font.Color = clGreen
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object progress: TLabel
Left = 344
Top = 140
Width = 149
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'progress'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object prglist: TListBox
Left = 11
Top = 56
Width = 148
Height = 226
Color = clNavy
ExtendedSelect = False
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
IntegralHeight = True
ItemHeight = 16
MultiSelect = True
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 0
OnDblClick = prglistDblClick
OnDrawItem = prglistDrawItem
end
object paslist: TListBox
Left = 169
Top = 56
Width = 148
Height = 226
Color = clNavy
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
IntegralHeight = True
ItemHeight = 16
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 1
OnDblClick = paslistDblClick
OnDrawItem = paslistDrawItem
end
object BitBtn2: TBitBtn
Left = 332
Top = 4
Width = 165
Height = 25
Caption = 'Change &Dir'
TabOrder = 2
OnClick = BitBtn2Click
end
object CheckBox1: TCheckBox
Left = 336
Top = 192
Width = 165
Height = 21
Caption = 'Do DBW Conversion'
State = cbChecked
TabOrder = 3
end
object BitBtn3: TBitBtn
Left = 332
Top = 228
Width = 165
Height = 37
Caption = '&Begin'
TabOrder = 4
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 12
Top = 288
Width = 149
Height = 25
Caption = '&Select All'
TabOrder = 5
OnClick = BitBtn4Click
end
object Button1: TButton
Left = 332
Top = 276
Width = 165
Height = 37
Caption = '&Close'
TabOrder = 6
OnClick = Button1Click
end
object OpenDialog1: TOpenDialog
DefaultExt = 'PRG'
Filter = 'xBase Files|*.PRG'
Options = [ofHideReadOnly]
Title = 'Select In Directory Any PRG File'
Left = 472
Top = 32
end
object MainMenu1: TMainMenu
Left = 336
Top = 32
object Options1: TMenuItem
Caption = '&Options'
GroupIndex = 8
object PRGtoPAS1: TMenuItem
Caption = '&PRG to PAS'
Checked = True
GroupIndex = 9
OnClick = PRGtoPAS1Click
end
object DBFtoPAS1: TMenuItem
Caption = '&DBF to PAS'
GroupIndex = 10
OnClick = DBFtoPAS1Click
end
end
end
end